home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000035.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  1013 b   |  46 lines
  1. ;make the castle
  2. (defrule
  3.     (goal castle-attempt NO)
  4.     (current-age == imperial-age)
  5.     (stone-amount > 400)
  6.     (nor 
  7.         (goal wonder-attempt POSSIBLE)
  8.         (goal wonder-attempt YES)
  9.     )
  10. =>
  11.     (set-goal castle-attempt YES)
  12. )
  13.  
  14. (defrule
  15.     (goal castle-attempt YES)
  16.     (can-build-with-escrow castle)
  17. =>
  18.     (release-escrow stone)
  19.     (set-strategic-number sn-percent-civilian-builders 75)
  20.     (set-strategic-number sn-cap-civilian-builders 15)
  21.     (set-strategic-number sn-percent-civilian-gatherers 25)
  22.     (build castle)
  23.     (set-goal castle-attempt 2)
  24. )
  25.  
  26. (defrule
  27.     (building-type-count castle > 0)
  28.     (or
  29.         (not (goal castle-attempt 2) )
  30.         (strategic-number sn-cap-civilian-builders == 15)
  31.     )
  32. =>
  33.     (set-strategic-number sn-percent-civilian-builders 10)
  34.     (set-strategic-number sn-cap-civilian-builders 8)
  35.     (set-strategic-number sn-percent-civilian-gatherers 90)
  36.     (set-goal castle-attempt 2)
  37. )
  38.  
  39. (defrule
  40.     (goal castle-attempt 2)
  41.     (building-type-count-total castle == 0)
  42. =>
  43.     (set-goal castle-attempt YES)
  44. )
  45.  
  46.